home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / spell.abc < prev    next >
Text File  |  1992-05-06  |  1KB  |  47 lines
  1. 5     REM WRITTEN BY ROBERT BENEDICT 75205,112
  2. 10    DIM STOP%(12)
  3. 20    D$="0123456789+="
  4. 30    FOR J=0 TO 11: READ STOP%(J): NEXT J
  5. 40    DATA 246,143,254,143,258,150,254,157,246,157,242,150
  6. 50    SCNCLR
  7. 60    PENA 4 : PENO 2
  8. 70    OUTLINE 1
  9. 80    MAT AREA 6,STOP%
  10. 90    CIRCLE(50,150),8,.9
  11. 100   CIRCLE(50,153),3: CIRCLE(47,147),2: CIRCLE(53,147),2
  12. 110   PENA 6
  13. 120   CIRCLE(150,150),7
  14. 130   PAINT(150,150)
  15. 140   OUTLINE 0
  16. 150   PENA 0: AREA(150,150 TO 140,140 TO 140,160)
  17. 160   A$=""
  18. 170   PRINT " "
  19. 180   PRINT " "
  20. 190   PRINT " "
  21. 200   PRINT " A B C D E F G H I J K L M"
  22. 210   PRINT " "
  23. 220   PRINT " N O P Q R S T U V W X Y Z"
  24. 230   PRINT" 0 1 2 3 4 5 6 7 8 9 + = |"
  25. 250   P%=1:A$="":PRINT AT (1,12);SPC(32)
  26. 260   SLEEP 100000: ASK MOUSE X%,Y%,B%
  27. 270   IF B% = 0 THEN GOTO 260
  28. 280   IF ABS(Y%-150) > 8 THEN GOTO 340
  29. 290   IF ABS(X%-250) < 8 THEN END
  30. 300   IF ABS(X%-150) > 8 THEN GOTO 330
  31. 310   P%=P%-1: PRINT AT (P%+1,12);" "
  32. 320   A$=LEFT$(A$,P%-1)
  33. 330   IF ABS(X%-50) < 8 THEN GOTO 440
  34. 340   IF X% > 208 THEN GOTO 260
  35. 350   IF ABS(Y%-24) > 6 THEN  GOTO 380
  36. 360   X%=(X%-12)/16:P%=P%+1:C$=CHR$(X%+78)
  37. 400   GOTO 470
  38. 410   IF ABS(Y%-56) > 6 THEN GOTO 260
  39. 420   X%=(X%-12)/16:P%=P%+1:C$=MID$(D$,X%+1,1)
  40. 430   GOTO 470
  41. 440   T$=TRANSLATE$(A$)
  42. 450   I%=NARRATE(T$)
  43. 460   GOTO 250
  44. 470   A$=A$+C$: T$=TRANSLATE$(C$): PRINT AT (P%,12);C$
  45. 480   IF C$="A" THEN T$="EY5/H"
  46. 490   I%=NARRATE(T$): GOTO 260
  47.